%@LANGUAGE="VBSCRIPT"%> <% Dim news__MMColParam news__MMColParam = "1" if (Request.QueryString("ref") <> "") then news__MMColParam = Request.QueryString("ref") %> <% set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_havlins_STRING news.Source = "SELECT * FROM tblNews WHERE ref = " + Replace(news__MMColParam, "'", "''") + "" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 3 news.Open() news_numRows = 0 %>
![]() |
![]() |
![]() |
|||||||
![]() |
|||||||||
|
|
|||||||||||||||||||||||||||||||||||||||
| Havlins News | |||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||